home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / UserStartup / Sources / PModules.Lha / PModules / epp / cSkipToEDelim.e < prev    next >
Encoding:
Text File  |  1994-03-22  |  522 b   |  20 lines
  1. OPT TURBO
  2.  
  3. PROC cSkipToEDelim (pos : PTR TO CHAR)
  4.   DEF c
  5.   /* Finds the next E delimiter in a string and returns its position. */
  6.   WHILE (c := pos [])
  7.     IF (c > 122) THEN RETURN pos      /* "z" */
  8.     IF (c < 95)                       /* "_" */
  9.       IF (c > 90) THEN RETURN pos     /* "Z" */
  10.       IF (c < 65)                     /* "A" */
  11.         IF (c > 57) THEN RETURN pos   /* "9" */
  12.         IF (c < 48) THEN RETURN pos   /* "0" */
  13.       ENDIF
  14.     ENDIF
  15.     INC pos
  16.   ENDWHILE
  17. ENDPROC  pos
  18.   /* cSkipToEDelim */
  19.  
  20.